O5001(GUN DRILL MACRO)
(ABSOLUTE MACRO)
(FEEDRATE WILL BE CALCULATED)
(BASED ON CHIP LOAD AND RPM)
(WORKS) 
 
(FORMAT G65/G66 SICQRZE)
(S = #19 - INITIAL RPM)
(I = #4 - INCREMENTAL RPM)
(C = #3 - DRILL CHIP LOAD)
(Q = #17 - STEPOVER IN Z/ DOC) 
(R = #18 - R PLANE)
(Z = #26 - Z START ZERO) 
(E = #8 - END OF DRILL IN Z) 
 
(*********************************)

IF[#19EQ0]GOTO1000
(CALCULATE Z INCREMENTS)
#100=ABS[#26]-ABS[#8]
#100=ABS[#100] 
IF[[#26*#8]GE0]GOTO1 
#100=ABS[#26]+ABS[#8]
N1#101=ROUND[#100/#17] 
#102=#100/#101 
#103=#5001 
#105=#5002 
(GOTO CENTER OF HOLE)
G0G90X#103Y#105
Z#18
M03S050
G1Z#26F5.
#106=#5003
(SET INITIAL RPM, FEED)
#107=#19-#4
#108=#107*#3
(EXECUTE MACRO)
WHILE[#101GE0]DO1
IF[#101LT0]GOTO10
#101=#101-1.
M03S#107
G1Z#106F#108
(RECALCULATE Z, RPM, FEED)
#106=#106-#102 
#107=#107+#4
#108=#107*#3
END1
N10M03S1000
G90G1Z#26F50.
M03S050
Z#18F5.
M5 
X#103Y#105 
M99
N1000
#3000=1(NO RPM SET!)